home *** CD-ROM | disk | FTP | other *** search
/ PhotoCD Manager / PhotoCD Manager.iso / install-photocd_manager < prev    next >
Text File  |  1996-05-09  |  6KB  |  203 lines
  1. ;$VER: PhotoCD_Manager Install 1.0 (1.3.96) 
  2. ;Copyright ©1996 Asimware Innovations Inc.
  3.  
  4. (complete 0)
  5.  
  6.  
  7. (onerror 
  8.     ((makeassign "PCDMInst")
  9.     (makeassign "PCDM_Dest")
  10. ))
  11.  
  12. (set @default-dest "SYS:PhotoCD_Manager")
  13. (set #theirlevel @user-level )
  14.  
  15. (set #wbversion (getversion "libs:version.library"))
  16. (set #wbversion (/ #wbversion 65536) )
  17. (if (< #wbversion 37)
  18.     (abort "\n\nAmigaDOS 2.0 or higher is required for PhotoCD Manager.  "
  19.              "An upgrade will be needed for your Amiga."
  20.              "\n\nYou are currently running version " #wbversion ".")
  21. )
  22.  
  23.  
  24.  
  25.  
  26. (if (exists "l:AsimCDFS")
  27.     ((set #version (getversion "l:AsimCDFS"))        
  28.     (set #asimversion (/ #version 65536) )
  29.     (set #asimrevision (- #version (* #asimversion 65536) ) )
  30.     (if (and (= #asimversion 3) (< #asimrevision 4))
  31.         ((user 2)
  32.         (message "\n\nYou have version AsimCDFS v" #asimversion "." #asimrevision " installed on your system.  "
  33.                  "PhotoCD_Manager will function better with AsimCDFS v3.5, or higher.  Consult your AsimCDFS v3 manual for update details.\n\n"
  34.                  "You can continue using AsimCDFS v" #asimversion "." #asimrevision ".  However, you will have to use the DiscChanger program to manually "
  35.                  "select the ISO 9660 volume or use AsimCDFS_Prefs and turn off the \"Mount PhotoCD First?\" option."
  36.         )
  37.         )
  38.     ))
  39. )
  40.  
  41.  
  42.  
  43. (askdisk
  44.     (prompt "Please insert the disk labeled \"PhotoCD_Manager_CD\".")
  45.     (help    "The PhotoCD Manager program and files will be copied "
  46.             "from this disk into your system.")
  47.     (dest  "PhotoCD_Manager_CD")
  48.     (newname "PCDMInst")
  49. )
  50.  
  51.  
  52.  
  53. (user 2)
  54. (set #PCDMDir
  55.     (askdir
  56.         (prompt "Specify the directory in which the PhotoCD_Manager program will be placed:" )
  57.         (help "PhotoCD_Manager will be placed in the directory specified.")
  58.         (default @default-dest)
  59.         (newpath)
  60.     )
  61. )
  62. (user #theirlevel)
  63.  
  64.  
  65. (if (not (exists #PCDMDir (noreq)))
  66.     (makedir #PCDMDir
  67.         (prompt "Creating the PhotoCD_Manager: directory...")
  68.         (help "This will create the specified directory for the program.")
  69.         (infos)
  70.         )
  71. )
  72. (makeassign "PCDM_Dest" #PCDMDir)
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79. (set #instPCDM
  80.     (askbool
  81.         (prompt "\n\nShould PhotoCD Manager be installed?")
  82.         (help "\n\nThis will copy over the PhotoCD Manager program "
  83.                 "to the " #PCDMDir " directory\n\nIf you do not "
  84.                 "wish the PhotoCD Manager program to be transferred to your system, "
  85.                 "skip this step.\n" )
  86.         (default 1)
  87.     )
  88. )
  89.  
  90. (if #instPCDM 
  91.     ((protect "PCDM_Dest:PhotoCD_Manager" "rwed" )
  92.     (protect "PCDM_Dest:PhotoCD_Manager.info" "rwed" )
  93.     (protect "PCDM_Dest:Data/Main_PAL.ham8.img" "rwed" )
  94.     (protect "PCDM_Dest:Data/Main_NTSC.ham.img" "rwed" )
  95.     (protect "PCDM_Dest:Data/Copyright.ham8.img" "rwed" )
  96.     (protect "PCDM_Dest:Data/Copyright.ham.img" "rwed" )
  97.     (protect "PCDM_Dest:Data/Main_NTSC.ham8.img" "rwed" )
  98.     (protect "PCDM_Dest:Data/Main_PAL.ham.img" "rwed" )
  99.  
  100.  
  101.  
  102. ;***************************************************
  103. ; determine if HAM or HAM-8 version is needed
  104. (if (run "PCDMInst:c/is_AGA")
  105.     (set #PCDMVer "PCDMInst:PhotoCD_Manager_HAM8")
  106.     (set #PCDMVer "PCDMInst:PhotoCD_Manager_HAM")
  107. )
  108.  
  109.  
  110.  
  111. ;***************************************************
  112. ; copy over main program 
  113.     (copyfiles
  114.         (prompt "\n\nCopying the PhotoCD_Manager program to the "
  115.                   #PCDMDir " directory.\n" )
  116.         (source #PCDMVer)
  117.         (dest "PCDM_Dest:")
  118.         (newname "PhotoCD_Manager")
  119.         (infos)
  120.         (help "\n\nThis will copy over the PhotoCD_Manager program"
  121.                 "to your"  #PCDMDir " directory.\n" )
  122.         (confirm)
  123.     )
  124.  
  125.     (tooltype
  126.         (prompt "\n\Setting PhotoCD_Manager icon.\n" )
  127.         (dest "PCDM_Dest:PhotoCD_Manager")
  128.         (noposition)
  129.         (help "\n\nThis will reset the PhotoCD_Manager icon.\n")
  130.         (confirm)
  131.     )
  132.  
  133.  
  134.  
  135. ;***************************************************
  136. ; copy over data files
  137.     (set #temp "PCDM_Dest:Data")
  138.     (if (not (exists #temp (noreq)))
  139.         (makedir #temp
  140.             (prompt "Creating the PhotoCD_Manager:Data directory...")
  141.             (help "This will create a sub-directory into which support files will be placed.")
  142.             (infos)
  143.             )
  144.     )
  145.  
  146.     (copyfiles
  147.         (prompt "\n\nCopying Data support files to the "
  148.                   #temp " directory.\n" )
  149.         (source "PCDMInst:Data")
  150.         (dest #temp)
  151.         (all)
  152.         (help "\n\nThis will copy over support files into the "
  153.                 #temp " directory.\n" )
  154.         (confirm)
  155.     )
  156.  
  157.  
  158.  
  159. ;***************************************************
  160. ; make shows directory
  161.     (set #temp "PCDM_Dest:Shows")
  162.     (if (not (exists #temp (noreq)))
  163.         (makedir #temp
  164.             (prompt "Creating the PhotoCD_Manager:Shows directory...")
  165.             (help "This will create a sub-directory into which slide shows will be saved.")
  166.             (infos)
  167.             )
  168.     )
  169.  
  170.  
  171. ;***************************************************
  172. ; make buffer directory
  173.     (set #temp "PCDM_Dest:Buffer")
  174.     (if (not (exists #temp (noreq)))
  175.         (makedir #temp
  176.             (prompt "Creating the PhotoCD_Manager:Buffer directory...")
  177.             (help "This will create a sub-directory into which overview pictures will be buffered.")
  178.             (infos)
  179.             )
  180.     )
  181.  
  182. ))
  183.  
  184. (protect "S:User-Startup" "rwed" )
  185. (protect "S:Startup-Sequence" "rwed" )
  186.  
  187. (startup "PhotoCD_Manager"
  188.     (command (cat "assign PhotoCD_Manager: \"" #PCDMDir "\"\n"))
  189.     (command (cat "assign PhotoCD_Manager_Shows: PhotoCD_Manager:Shows\n"))
  190.     (command (cat "assign PhotoCD_Manager_Buffer: PhotoCD_Manager:Buffer\n"))
  191.     (prompt "Inserting assignment commands into the startup-sequence")
  192.     (help "Assignment commands are being inserted into your "
  193.             "\"S:Startup-Sequence\" or \"S:User-Startup\" file to "
  194.             "allow PhotoCD_Manager to find the needed files." )
  195. )
  196.  
  197. (makeassign "PhotoCD_Manager" #PCDMDir)
  198. (makeassign "PhotoCD_Manager_Shows" "PhotoCD_Manager:Shows")
  199. (makeassign "PhotoCD_Manager_Buffer" "PhotoCD_Manager:Buffer")
  200.  
  201. (makeassign "PCDMInst")
  202. (makeassign "PCDM_Dest")
  203.